perm filename ZOR21.DAT[SCR,LCS]1 blob sn#197671 filedate 1976-01-17 generic text, type T, neo UTF8
00100	 RCDFLG←-3; 
00200	 
00300	  < ZOR21.DAT  --  RANDOM NUMBER=     1
00400	 PLAY;
00500	 TOOT     0.000   24.000 A     1000.000 F1   
00600	;PRINT(P1);< TOOT    1
00700	 CLAR    12.000   24.000 A     1000.000 F2   
00800	;PRINT(P1);< CLAR    2
00900	 BRIT    24.000   24.000 A     1000.000 F2   
01000	;PRINT(P1);< BRIT    1
01100	 BUZZ    36.000   24.000 A     1000.000 F2   
01200	;PRINT(P1);< BUZZ    1
01300	 TOOT    48.000   24.000 A     1000.000 F10  
01400	;PRINT(P1);< TOOT    3
01500	 FINISH; < ZOR21.DAT